home *** CD-ROM | disk | FTP | other *** search
- // By Judy D. Halchin, Educational Computing Services, Allegheny College.
- // You may freely copy, distribute and reuse this code.
- // Allegheny College and the author disclaim any warranty of any kind,
- // expressed or implied, as to its fitness for any particular use.
- // This work was partially supported by a Teacher Preparation grant from the
- // National Science Foundation.
-
- defineps drawPointer(float size)
-
- gsave
- newpath
-
- % white out the background
- 1 setgray
- 0 setalpha
- 0 0 size size rectfill
-
- 2 1 translate
- /height size 3 sub def
-
- /twelfth height 12 div def
- /fourth height 4 div def
- /half height 2 div def
- /seventwelfths twelfth 7 mul def
- /fivetwelfths twelfth 5 mul def
-
- fourth half moveto
- half height lineto
- fourth 3 mul half lineto
- seventwelfths half lineto
- seventwelfths 0 lineto
- fivetwelfths 0 lineto
- fivetwelfths half lineto
- fourth half lineto
- 0 setgray
- 1 setalpha
- 2 setlinewidth
- stroke
-
- grestore
-
- endps
-